home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / '92_HACK / SCROLL_O / SBAR_INI / SBARINIT.C
C/C++ Source or Header  |  1991-07-10  |  632b  |  33 lines
  1. /*    This is the source code for the init resource for the cdev.  All it        */
  2. /*    does is display the icons at start-up.                                    */
  3.  
  4.  
  5. #define    BaseIconID    128
  6. #define    LastIconID    -4064
  7. #define    ProcID        128
  8. #define WordResID    -4048
  9. #define NumIcons    8
  10. #define    NormalAppFont    applFont
  11. #define    DelayTime        30L
  12.  
  13. main()
  14. {
  15.     Handle    procH;
  16.     int        i;
  17.     long    dummy;
  18.     
  19.     if ((procH = GetResource('jROC', ProcID)) != 0l)
  20.         {
  21.             HLock(procH);
  22.             CallPascal(BaseIconID, 0, *procH);
  23.             Delay(DelayTime, &dummy);
  24.             
  25.             for (i = 1; i < NumIcons -1; i++)
  26.                 CallPascal(BaseIconID + i, 0, *procH);
  27.             CallPascal(LastIconID, -1, *procH);
  28.             HUnlock(procH);
  29.         }
  30. }
  31.  
  32.  
  33.